home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / glass / glass.lha / GLASS / tm / tplelm.ds < prev    next >
Text File  |  1990-11-02  |  455b  |  14 lines
  1. tplelm ::=
  2.     Plain lno:int plainline:string |
  3.     Foreach lno:int felist:string felines:[tplelm] |
  4.     While lno:int whilecond:string whilelines:[tplelm] |
  5.     If lno:int ifcond:string ifthen:[tplelm] ifelse:[tplelm] |
  6.     Set lno:int setline:string |
  7.     Append lno:int appline:string |
  8.     Error lno:int errstr:string |
  9.     Exit lno:int str:string |
  10.     Include lno:int fname:string |
  11.     Copy lno:int fname:string |
  12.     Insert lno:int fname:string;
  13.  
  14.